Set FS       = CreateObject("Scripting.FileSystemObject")

Set WSHShell = WScript.CreateObject("WScript.Shell") 
Set Ordner = FS.GetFolder(".\")

for each myfile in Ordner.files

if (instr (right(myfile.name, 3), "eps") > 0)  then

target_file = left(myfile.name, len(myfile.name) - 3) & "pdf"


mystring =  "epstopdf """ & myfile.name & """"


if not FS.fileexists (Ordner & "\" & target_file) then

WSHShell.Run mystring, 1, true
end if

end if

next
